home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 April / 1988-04.d64 / calc goto.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  410b  |  14 lines
  1. 5 rem copyright 1988  compute! publications, inc.  all rights reserved.
  2. 10 print"[147]copyright 1988"
  3. 12 print"compute! publications, inc."
  4. 14 print"all rights reserved."
  5. 16 for i=1 to 2000:next:print"[147]"
  6. 20 for gl=50 to 90 step 10
  7. 30 poke 785,188:poke 786,168:sys 47083(gl),usr(0)
  8. 40 next gl:list
  9. 50 print "line 50":goto 40
  10. 60 print "line 60":goto 40
  11. 70 print "line 70":goto 40
  12. 80 print "line 80":goto 40
  13. 90 print "finally, line 90":goto 40
  14.